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Disclaimer 
Vector Graphic makes no representations or warranties, with respect to the contents of this manual 
itself, even if the product it describes is covered by a warranty or repair agreement. Further, 
Vector Graphic reserves the right to revise this publication and to make changes from time to time 
in the content hereof without obligation of Vector Graphic Go notify any parson of such revision or 
changes, except tfien an agreement to the contrary exists. 

Revision Numbers 
The date and revision of each page herein appears at the bottom of each page. The revision letter 
such as A or B changes if the manual has been improved but the product itself has not been 
significantly modified. The date and revision on the Title Page corresponds to that of the page 
most recently revised. Vhen the product itself i3 modified significantly, the product will get a 
new revision number, as shown on the manual's title page, and the manual will revert to revision A, 
as if it were treating a brand new product. THIS MANUAL SHOULD ONLY BE USED WITH THE PRODUCT (S) 
ECENTIFIED ON THE TITLE PAGE. 
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VECTOR GRAPHIC 

GENERAL DESCRIPTION 

The Version 5.3 executive is a complete systems executive, designed to support the new Vector 
Extended CP/M- Operating System. It also drives the Flashwriter II (30 X 24) video display board, 
and the Vector Graphic serial and parallel keyboards. Thus it is recommended for use with the 
Vector Mindless Terminal. 

Because of the nature of the relationship between Extended CP/M and the 5.0 Executive, it is 
strongly suggested that any user writing conventional machine language programs use the facilities 
present in the operating system rather than those present in the Executive. It is further suggested 
that the user does not implement input and output commands directly to hardware devices. See the 
BIOS section of the Extended CP/M manual for information on how to interface to most I/O devices 
(including the keyboard and screen of the Mindless Terminal). See the 3D0S section of the Extended 
CP/M manual to find out how to interface to the Disk Drive (s) in your system. 

The 5.0 Executive differs so significantly from previous versions of the Extended Systems Monitor 
that it was given a different name. The changes made were necessary in order to accomodate the 
single/multiple user features of the Vector Operating System. In addition, disk boot driver 
routines have been included. Previously these were incorporated into a separate disk boot PROM. 

This program includes an extensive command executive, a compactly written program designed to 
facilitate manipulation and display of memory data- The "prompt" -which indicates that the Executive 
is waiting for operator entry is "ExeO". 

If you are operating a terminal in a Multi-User system and are not quite sure what you are doing, be 
aware that Executive commands may have undesirable effects on other users of your system. It is 
suggested that you gain experience when there are no other active users on the system. 

There are 23 commands which are entered as a single- letter followed by up to four hexadecimal data 
fields. After each field is entered, a space is automatically output as a prompt. Either upper or 
lovrer case alpha characters may be- used, but lower case characters will be converted to upper case, 
and any non-hex characters will be ignored-. Allowable hex characters are- 0-9, A-F. Address fields 
are four digits long; other fields are- two digits - long. 

If a space- is typed at any time during field entry, a default value of zero is assumed for all 
leading zeroes. This applies to an entire field as well as one that rvas been partially entered, and 
the cursor will advance to the next field if required. For example, typing (SP) will have the same 
effect as typing 0000; typing 100 (SP) will have the same effect as 21M- 

Any command that generates a display can be temporarily halted by depressing the space bar and 
continued by pressing the space bar again. The ESCape- key will abort a display or command entry. 

The 5.0 Executive is located at address E000H - EBFFH in Vector Graphic systems. The physical 
implementation of this program may vary according to the system involved. In current systems as 
shipped from the factory, the Executive occupies the lower three ouartars of the address space on a 
2732 EPROM (or equivalent). The upper quarter of the address spac* on ^hat EPROM is not used. The 
ZCB board in these- systems has been modified to not respond to aev aenory address in the EC00H to 
EFFFH range. This allows these addresses to be- used by other memory boards in the system. 
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5.0 EXECUTIVE 



HEXADECIMAL NUMBERS 



The hexadecimal number system may seem confusing if you ace not familiar with it, but is clearly the 
best system with 16 bit addresses and 9 bit data. It is usually not necessary to convert between 
number systems, as this is usually done by software (i.e. assemblers). An explanation of 
hexadecimal and other number systems used in microcomputers may be found in virtually any 
introductory microcomputer book. 



HEX NUMBER 


DECIMAL VALUE 


JARGC1 


a 









l 




1 




2 




2 




A 




10 




B 




11 




C 




12 




D 




13 




E 




14 




F 




15 




10 




16 




FF 




255 




100 




256 


1 PAQ 


3PF 


1, 


,023 




400 


1, 


,024 


IK 


FFF 


4, 


,395 




1000 


4, 


,096 


4K 


4000 


16, 


,384 


16K 


3000 


32, 


,768 


32K 


FFFF 


65, 


,535 


64K-1 



BINARY BITS 
1 

1 
2 

4 
4 
4 
4 

4 
4 
5 
3 

9 

10 

11 

12 

13 

15 . 

16 

16 
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VECTOR GRAPHIC 

COMMAND FORMAT 

SxeO B - BOOf FLOPPY 

Typing this command causes a jump to location E800H which is located in the disk boot section of the 
Executive. This will cause the disk operating system to be loaded into memory and transfer control 
to CP/M. This is designed to be used with a Vector system using the DualMode or FD controller 
board. The use of a Micropolis Disk Controller board is incompatible with this system. 

ExeO C <ADR1> <ADR2> <ADR3> - COMPARE BLOCKS 

A byte— by-byte comparison will be made between the block of memory data starting at ADR1 and ending 
at ADR2 and a block of identical length starting at AER3. The differences will be printed out with 
the address, the byte in the first block and the byte in the second block. This command is useful 
to compare two versions of a program or to verify that proms have been programmed correctly. 

ExeO D <ADR1> <ADR2> - DUMP IN HEX 

Memory contents from ADR1 through ADR2 will be displayed as pairs of hexadecimal characters. The 
left character in each pair represents the four most significant bits of the memory location. The 
display may be halted and interrupted as described above » The ASCII representation is displayed in a 
column on the right. 

SxeO E - EXTERNAL COMMUNICATIONS 

The Executive will output anything typed on the keyboard through port 4 on the ZC3 single board 
computer, the Bitstreamer II I/O board or an appropriately addressed 3itstreamer I board. Anything 
received on this port will be displayed on the screen. Normally a 300 baud modem would be connected 
to the serial RS-232 output from the I/O board/ and this feature allows the system to be used as a 
simple terminal to communicate- with a host in a full duplex mode. Operation at speeds above 300 
baud requires the host to send null characters after linefeeds, so that characters are not lost when 
the screen scrolls up. 

ExeO P <ADR1> <aDR2> <BYTS1> <BYTE2> - FIND TWO BYTES 

This memory range from ADR1 through ADR2 will be searched for the particular code combination BYTE 1 
BYTE 2. This is useful for locating particular commands or jump addresses. For example, if you 
wish to change a control character (say control D) in a program you may try FE 04, which is CPI 04 
since this is a common way of testing input characters. If you wish to find all locations that call 
or jump to a particular address, say C700H, then search for 00C7. There is no guarantee that each 
location displayed is valid object code — it may be part of a data table, ASCII string, or second 
and third bytes of a three byte instruction. 

Exec XS <ADR1> - GO TO AND EXECUTE 

*his command will cause a jump to ADR1 to execute a program or user subroutine. As with all 
Executive jimp commands, the address contained on the stack is "START" (E04CH) and if the user 
routine at ADR1 ends in "RET", program execution will return to the Executive. Approximately 96 
levels of stack space is available, but of course, pushing more registers on the stack than are 
popped will defeat the return feature with undesirable effects. 

ExeO H - DISPLAY MEMORY BANKS 

This command displays the bank number of resident Video and Ram memory boards found in the system. 
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5.0 EXECUTIVE 
ExeO I <PORT> - INPUT FROM A PORT 

Execution of this ccmmand will cause the CPU to execute an "IN PORT" instruction and the accumulator 
contents immediately following this to be displayed. This command is useful in checking out 
peripheral equipment. Only those ports used by the terminal, cassette interface, etc., will contain 
interesting values. All others will read ?F since the data bus will be floating -when the "IN" 
command is executed. 

Sxeo j - COLD BOOT 

This command first checks to see which operating system is present in the system and then jumps to 
F800H. This will perform a cold boot of the operating system. 

ExeO K - SET BREAKPOINTS 

This command expects a 4 digit address, and will place a RESTART 7 (FF} at that location in RAM. 
Wien that instruction is executed, which is a call to location 3038H, the CPU will jump to the 
-Executive routine that dumps the register contents. The instruction replaced with FF will also be 
restored. If a program is loaded over 0038H, the breakpoint instruction will be defeated unless 
RESET is depressed. Entry of the Executive at S000H will clear the breakpoint, as will pressing 
the RESET switch. 

SxeO L - JUMP TO LOW RAM AT 0000H 

This command jumps to memory location 3000H which is the beginning of program memory. This is the 
CP/M warm start location. 

SxeO M <ADR1> <AER2> <AER3> - MOVE MEMORY BLOCK 

The data contained in memory starting at ADR1 and ending at ADR2 is moved to memory locations 
starting at ADR3. This command is useful for moving a program from a temporary storage location to 
its correct address. If there is an overlap of the two memory areas, interesting results are 
obtained. For example, M 6000 7BFF 6400 will cause the block of data from 5000H through 63FFH to be 
repeated 3 times from 6000H through 7FFFH, since by the time location 6400H is read, it has been 
overwritten with data from 6000H. This is useful for bank programming of PROMs, or for creating 
repeating instruction sequences for test purposes. 

ExeO N - HON-OESTM U CT I VE MEMORY TEST 

Memory locations starting at 3000H are read and the data temporarily stored. The memory location is 
then tested to see if 00 and FF can be written and read correctly. This continues after rewriting 
the original data until the first error is detected, whereupon the address is displayed followed by 
the data written into memory and v&at was read from it. This command is most useful for checking 
how much memory a system contains. For example, if the system contains 16K of memory, 4000 00 FF 
should be printed, indicating that there is no memory at address 4000H. Since the test is 
non-destructive to data in memory, it can be used at any time. 

ExeO O <PORT> <DATA> - OUTPUT TO PORT 

The two hex digits "DATA" are loaded into the accumulator and the instruction "OUT PORT" is 
executed. This command is useful for checking out peripheral equipment. For example, if a printer 
is connected to I/O port 6> 06 41 will cause an "A" to be printed since 41 is the hex ASCII code 
for "A", if there are other users on the system, be careful that you do not output to the port 
address of their memory boards as this may cause loss of data. 
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VECTOR GRAPHIC 

ExeO P <ADR1> - PROGRAM MEMORY 

The contents - of 16 bytes of memory containing ADR1 are displayed in both hex and ASCII, allowing 
preceding and following instructions to be viewed. Advancing to the next instruction is accomplished 
by typing space or cursor right (right arrow). Backspace or cursor left (left arrow) goes 
backwards. The cursor up and down keys move to an adjacent 16 byte block. Any hex characters typed 
will replace the existing contents of RAM. After every keypress, the screen display is refreshed by 
reading frcra memory, so the display reflects the exact memory contents. To terminate, depress 
ESCAPE. 

ExeO Q <ADR1> <ADR2> - COMPUTE CHECKSUM 

The MOD 256 checksum of memory contents in the address range specified is computed and displayed. 
This command is useful for checking proms or files to see if anything has changed. Any source file 
or program written in pure code (it does not write on itself) will have the same checksum as --hen it 
was loaded. Wiile debugging assembly language programs, it is useful to be able to verify that a 
program being debugged has not written garbage in the source file or assembler. 

ExeO R - REGISTER DUMP 

This command will print a header identifying the Z-80 registers, and immediately below it the 
contents of all the registers. The flags are displayed with the letters Z C M E H for the zero, 
carry, minus, parity even, and auxiliary or half carry flags respectively. The presence of the 
letter indicates the flag is true. The contents of the memory locations pointed to by the 3, D, and 
H register pairs are also displayed as is the return address on the stack. 

ExeO S <AORl> <AOR2> <BYTE> - SEARCH FOR SINGLE BYTE 

This i3 similar to the: "F" - command, except that only one byte is searched for instead of two. An 
example of the use- of this command is to display all locations in a program where an output to a 
port occurs (D3) . The address of each location will be displayed followed by "D3" and the next byte 
(the port number) . 

ExeO T <AORl> <ADR2> ■» TEST MEMORY 

This is an extremely useful command, especially when first setting up. a system. This command 
permits thorough testing of the system memory. A portion of a 64K byte pseudorandom number sequence 
is written into memory from ADR1 through ADR2, and the exact same sequence is regenerated from the 
initial point and compared with what is read from memory. If all locations compare, another portion 
of the sequence is used to repeat the test which continues until it is interrupted. Any memory 
errors are displayed with the address, what was written into memory and what was read from memory, 
respectively. This information is all that is needed to pinpoint a malfunctioning memory chip. 
This test is quite exhaustive if used for at least 10 cycles and is far superior to incrementing or 
complementing tests which may not reveal addressing problems. The only area of system memory that 
cannot be tested with this routine i3 the few bytes required for the stack and video flags in the 
vicinity of FFD0H on the- ZCB boards Do not U3«- thi3 test if there are other users active on the 
system. 

ExeO U - JUMP TO 0100H 

This command permits easy return to programs in the transient program area of CP/M. 
Exec >W - WINCHESTER DRIVE. BOOT 

Typing this command will cause a jump to E802H which is in the Disk Boot section of the Executive 
and contains the Winchester drive bootstrap loader. The boot program will cause the CP/M operating 
system to be loaded into memory and control to be transferred to CP/M. 

SxeO Y - KEYBOARD ECHO 

This command causes keyboard input to be echoed directly to the video driver and can be used for 

demonstration purposes. An SSCape returns to the Executive. 
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5-0 EXECUTIVE 



ExeOZ <ADR1> <ADR2> <DATA> - ZERO OR FILL MEMORY 



The memory block from ADR1 through ACR2 is filled with the byte "DATA". This is useful for setting 
memory to Zero. The end of a file or assembled program will stand out more clearly if memory is 
first zeroed. For test purposes, single instructions can be executed continuously so that bus 
waveforms are more easily interpreted. This is done by filling a block of memory with a repeated 
instruction sequence with a jump to che start of the block so that the program loops continuously. 
3e careful with this command if there are other users on the system. 

VIDEO DRIVER 

Version 5.3 of the Executive contains an elaborate video driver. The purpose of the video driver is 
to accept a stream of ASCII codes, and to write them into the screen memory in the proper place, 
interpreting certain non printing control codes in a special way. There are several entry points to 
the video driver. E309H is recommended. The character code to be printed must be in the A 
register. A CALL E009 will cause the character to be printed on the screen at the cursor position. 
All registers will be preserved. 

Control codes are generated by the keyboard by holding the control (CTRL) key down while a letter 
key is pressed. Control codes have values between and 31 , and are 64 less than the codes for the 
corresponding upper case letters. To demonstrate the features of the video driver, type Y after the 
Executive prompt, and any keyboard generated code will be echoed to the video driver. The following 
control codes are interpreted as special functions, while all others are ignored: 



Decimal 


Hex 


Control 


Value 


Value 


Code 


2 


2 


(~B) 


4 


4 


(~D> • 


5 


5 


rs) 


3 


3 


(~H) 


9 


9 


(~I) 


10 


A 


C3) 


13 


D 


(~M) 


14 


£ 


(~N) 


16 


10 


(*P) 


17 


11 


(~Q) 


18 


12 


(-R) 


20 


14 


(~T) 


21 


15 


(~U) 


23 


17 


(~W) 


24 


18 


(~X) 


26 


1A 


rz) 


_7 


13 


ESC 



Description 

HOME THE CURSOR 

CLEAR THE SCREEN AND HOME CURSOR 

DISPLAY THE CODE IN B REGISTER 

DESTRUCTIVE BACKSPACE (also BACKSPACE key) 

TAB OVER TO THE NEXT 8 MULTIPLE (also TAB) 

LINEFEED (also LF Key) 

CARRIAGE RETURN (also RETURN key) 

TOGGLE CURSOR 

CLEAR TO END OF SCREEN 

CLEAR TO END OF LINE 

CURSOR DOWN 

TOGGLE REVERSE VIDEO 

CURSOR UP 

CURSOR LEFT 

CLEAR TO START OF LINE 

CURSOR RIGHT 

CURSOR XY POSITION LEAD-IN or 

TOP OF SCREEN LEAD-IN- 

Experiment with the keys. There are special keys on the keyboard to generate some of the codes such 
as RETURN, TAB and linefeed (LF) . If you are using the Vector Graphic Keyboard or Mindless 
Terminal, there are also keys for the cursor control and BACKSPACE. A few of the functions are not 
self explanatory. A Control D sets the reverse video flag to normal in addition to clearing the 
screen and homing the cursor. A Control T will then toggle the reverse video flag from normal to 
reverse and back without printing on the screen. 

In some cases it is desirable to print the symbol for a control code on the screen. This can be 
done in assembly language programs by putting the code for the symbol in the 3 register and calling 
the video driver with Control E (05) in A. Enter the following machine code at FC30H and execute it 
to demonstrate this feature: 06 31 3E 35 34 CD 09 E0 CD X E0 C3 32 FC 
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VECTOR GRAPHIC 

CURSOR X Y POSITIONING 

Many programs utilize randan X Y positioning of the cursor. This is done by outputting a three byte 
sequence to the video driver. The first code is ESC (1BH) followed by the desired X position and Y 
position in hex. The top left corner of the screen is 0, 0. The assembly language sequence IB 40 
08 would cause the cursor to move to line 8, character position 64 on the screen. To send the same 
sequence to the Executive via Microsoft Basic, the following statement would be used: "PRINT 
CHR$(27);CHR$(X+128);CHRS(Y+128) ;' where X would equal 64 (40H) and Y would equal 38 (08H) . Adding 
the value of 128 to X and Y in this example sets the eighth bit high. This is done to avoid 
Microsoft Basic from confusing the values as control codes. This may not be demonstrated using the 
keyboard since ESC causes a return to the Executive. 

The video- driver provides an extensive range of special controls, however, they must be incorporated 
into the software generating the video stream to be meaningful. For instance a piece of software 
that merely echoes all characters as they go into its input buffer will allow cursor motion on the 
screen, but this will probably be meaningless to the software. 

SETTING" TCP OP SCREEN 

The logical top of screen can be set by sending the appropriate codes (escape sequences) to the 
Executive program. To set the top of screen send: ESC DEL (line number) to the Video driver. The 
line number must be expressed in hexadecimal in the range of 0H to 16H (0 to 22 decimal) . 

KEYBOARD OOCE CONVERSION - VECTOR GRAPHIC KEYBOARDS 

Due to limitations in the keyboard encoder chip, the [] key on Vector Graphic keyboards is not 
encoded properly. The correct code is generated by a conversion routine in the Executive's CONVERT 
routine. The codes for backslash and tilde are also produced by the control and control shift mode 
of this key. 

[] KEY CONVERSION: 

MODE KEYCODE CONVERTED CODE ASCII SYMBOL 

C 
1 
\ 

The cursor up key is also converted from 60H to 15H which is interpreted correctly by the video 
driver. Room is provided in the routine for up to 15 keycode conversions. Foreign languages 
require additional conversions. It is essential that software utilize the Executive conversion 
routine for this reason* 



unshifted 


PI 


5B 


shifted 


El 


5D 


control 


Bl 


5C 


control shift 


Al 


7E 
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PACE 2 



0000 
0000 








* 


0000 








VECJOR EXECUTIVE - VERSION 5.0 •* 


0000 








02/01/82 * 


0030 








* 


0003 






j************************************************ 


0000 










0000 


E000 


» 


BASE 


EQU 0E000U j ASSEMBLY ADDRESS 


0000 


E000 


» 


PR 


EQU 0C000U |PRCN/IW4 ADLRESS 


0000 


0000 


» 


CONS 


EQU ;COM3 STATUS POT 


0000 


0001 


= 


COUD 


EQU 1 )CONS DATA PORT 


0000 


001B 


« 


ESCP 


EQU 1BH 


0000 


00" 04 


^ 


clrscrn 


EQU 4 


0000 


0040 


» 


RPA 


EQU 4011 jRECEIVE FLAG 


0000 


0040 


» 


port 


EQU 4011 |RAM ENABLE PORT 


0000 


0000 


= 


5TPOL 


EQU j STATUS POLARITY 


0000 


0100 


» 


TPA 


EQU 010011 jCP/M USER AREA 


0000 


FbDO 


» 


SPTR 


EQU 0FBO0H ; STACK POINTER 


0000 


FFFD 


» 


TIMPSP1R EQU 0FFFDH j TEMPORARY STACK POINTER 


0000 


E800 


a 


FLBOOT 


EQU 0E80OII j FLOPPY BOOTSTRAP 


0000 


E802 


= 


MSBOOT 


EQU 0E802H jMEGASTOR BOOrSTRAP 


0000 


FF10 


» 


duusy 


EQU OFFICII jCONTROLLER BUSY 


0000 


F000 


k 


SCREEN 


EQU PRH00QH | SCREEN LOCATION 


0000 


FFFE 


= 


VIEEOFIAG EQU 0FFFEH jVIDEGS BANKS 


0000 


FFFF 


» 


RAMFLAG 


EQU 0FFFFH iRAM BANKS 


0000 


F800 


=» 


COLD5TART EQU 0F80OII ;E)CrENCED CP/M ENTRY POINT 


0000 










0000 






,i*M*«tt«i»tttttt>tt*lt>ti*ittti«t«t>tlt«t*»«itt 


0000 










0000 








COMMANDS : * 


0000 










0000 








A * 


0000 








B .JUMP TO BOOTSTRAP LOADER * 


0000 








C SSSS FFFF CCCC COMPARE BLOCKS * 


0000 








D SSSS FFFF DUMP MEMORY IN HEX fc ASCII * 


0000 








E EXTERNAL COMMUNICATIONS * 


0000 








F SSSS FFFF DO DO TWO BYrE SEARCH * 


0000 








G SSSS GO TO AND EXECUTE * 


0000 








H HI INI" SYSTEM STATUS * 


0000 








I PP INPUT FROM PORT , » 


0000 








j cp/m com Boor . * 


0000 








K 1.1.1.1. SET A BREAKPOINT * 


0000 








I. .TUMP TO LOW HAM AT * 


0000 








M SSSS FFFF DDOD MOVE BLOCK * 


0000 








N NUN leSTRlX.TIVE MEMORY TEST * 


0000 








o pp do ourpur to port * 


0000 








P LI.I.L PROGRAM MEMORY * 


0000 








Q SSSS FFFF OUPUTE aiECKSUM » 


0000 








R WWP 2^80 REGISTERS * 


0000 








S SSSS FFFF DO SEARCH FOR SINSLE BYTE * 


0000 








T SSSS FFFF TEST MEMORY * 


0000 








U .TUMP TO USER AREA AT 10011 * 


0000 








V * 


0000 








W BOOT WINCHESTER DISK * 


0000 








X SSSS FFFF DDOD EXCHANGE BLOCK * 


0000 








Y KEYBOARD ECHO * 


0000 








Z SSSS FFFF DU ZERO OR FILL MEMORY * 



0000 
0000 
0000 
0000 
E0O0 
E000 
E0O0 
EO00 
E003 
E006 
E0O9 
E00C 
EO0F 
E012 
E01S 
E01S 
E015 
E015 
E019 
E01B 
E01B 
E01B 
E01B 
E01D 
E020 
E021 
E023 
E024 
E025 
E027 
E02U 
E028 
E029 
E02C 
E02C 
E82C 
E02C 
E02E 
E031 
E033 
E035 
E037 
E039 
E03A 
E03D 
E0 3U 
E03D 
E03D 
E03D 
E03H 
E03F 
E041 
E044 
E045 
E04G 
E047 
E049 



C32OE0 
C30FE2 
C314E2 
C310E4 
C302E2 
C319E2 
C397E0 



00000040 
CE27 



0606 

2115E0 

4F 

EDA3 

E3 

E3 

20FA 

C9 

F3 

31FUFF 



3E07 

CD1BE0 

D602 

FE01 

20F7 

D340 

3D 

3210FF 



0E40 

0601 

11FEFF 

12 

13 

12 

ED41 

210000 



J 

J* 
I 

I 

t 

I 

BEGIN: 

GETSTAT: 

GETWTAi 

PUTCWTA: 

GETCONV; 

COfWOATA: 

WARMENTHY: 



JUMP TABI.E Of ENmY POINfS 



JMP 


INIT 


JMP 


KEYSTAT 


JMP 


KEYMTA 


JMP 


VIDEO 


JMP 


ESCAPE 


JMP 


CONVEItr 


JMP 


start 



INITIALIZE ALL 

jFElxrtl KEYBOARD STATUS 

; FETCH KEYBOARD (ATA (NO CONVEKr) 

jotrrpur td '/"rkkn 

;GET AMD OXWEUT DATA 
jCHARACTEII CONVERSION 
;WAIM EIJTHY KJINV 



TABLE OF COMMAMB FOR USART 
NITABLE DB 0,0,0, 4011, 0OEH,27H 



1NIAL1ZATION SUBROUTINE FOR USARTS (PuHT ADDRESS IN A) 



NILOOP 



OUT LOOP 



I 

INIT 

1 
I 

; 



MVI 


B,6 


LXI 


H.INITABLE 


MOV 


C,A 


OUTI 




xthl 




XTHL 




JRNZ 


coriixi> 


RET 




DI 




LXI 


SP,TtMPSPTI 



j no of command BrrES 
jSTAirr of byte table 

loumrr a byte 

;DELAY FOR 6 MHZ. 
jSEND NEXT BYTE 



;MAKE SI/RE INr DOWN 

;StT STACK TO Til' Of COMMON 



INITIALIZE USARTS AT PURTS 0,3,5,7 



INlTPORTl 



HVI 


A. 7 


CALL 


IN I LOOP 


SUl 


2 


CPI 


1 


JRNZ 


initport 


OUT 


port 


DCR 


A 


STA 


DUUSY 



; HIGHEST PORT ADDRESS 
.•INITIALIZES port 
joerjuMEiir to next adihess 

j CHECK FOR END 
jENABl£ RANK I 
|CLEAH OONn«)|.l>:H FLAG 



CHECK MEMORY BANKS AND PATCH RST 5 
INITIALIZE PARAMETERS/FLAGS IN ALL BANKS 
CHECK VIDEO HANKS AND WRITE HIOMIT 



USEHCHECKj 



USEHCIIECK10: 



MVI 

MVI 

LXI 

S1AX 

I NX 

S1AX 

ourp 

1X1 



C, PORT 

B,l 

D.VHEOFLAG 

D 

D 

D 

B 

11,0 



)STAirr WITH BANK 1 
jPOINT TO VIIAIOFLAG 
j ZERO VIDEOFLAG 

jZEHO RAMI 1 AC 
;ENABI-E HANK 
;CHECK Ull RAM 
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E04C 7E 


MOV 


A,M 


/GET BYTE FROM MEMORY 


E04D 35 


OCR 


M 


iCJIANGE RAH 


E04E BE 


CMP 


M 


/CHECK IF SAME 


E04F 77 


MOV 


M,A 


/RESTORE RAM 


E0S0 2811 


JR2 


U3ERCHECK20 


/SKIP IF NOT ENABLED 


E0S2 22EAFB 


S1IL0 


XYFLAG 


j ZEROS FLAGS (ORDER DEPENDENT) 


E055 1A 


LDAX 


D 


/GET RAM FLAG 


E056 B0 


CRA 


B 


/SET BANK BIT 


E057 12 


STAX 


D 


/SAVE NEW RAM FLAG 


E058 3EC3 


MVI 


A,0C3H 


/JUMP 


E05A 322800 


STA 


2811 


/RST 5 


E05D 21D7E6 


ui 


H, DUMFRIES 


/JUMP ADDRESS FOR RESTART 


E060 222900 


SHLD 


29H 


/SAVE IN MEMORY AT RST 5 


E063 2100F0 USERCHECK20« UI 


H, SCREEN 


/CHECK VIDEO RAM 


E066 7E 


MOV 


A,M 


/GET BYTE FROM MEMORY 


E067 35 


DCR 


M 


/CHANGE RAM 


E068 BE 


CMP 


M 


/CHECK IF SAME 


E069 77 


MOV 


M,A 


/RESTORE RAM 


E06A 2812 


jnz 


USERCHECK30 


/SKIP IF NOT EWkBLED 


E06C IB 


DCX 


D 


/ (DE) - VIDEO FLAG 


E06O 1A 


LDAX 


D 




E06E B0 


CRA 


B 


/SET BIT 


E06F 12 


STAX 


D 


/SAVE NEW VIDEO FLAG 


E070 13 


INX 


D 


/(DE) - RAMFLAG 


E071 1A 


ldax 





/GET RAM FLAGS 


E072 A0 


ANA 


B 


/MASK BANK WITH RAM BITS 


E073 2809 


JRZ 


U5ERCHECK30 


/SKIP IF NOT BOTH VIDEO AND RAM 


E075 D9 


EXX 




/SAVE ALL REGS 


E076 CDFEE0 


CALL 


SIGN. ON 


/DISPLAY SIGN-ON 


E079 AF 


xnA 


A 


/USE PORT 


E07A CD1BEB 


CALL 


INILCOP 


/INITIALIZES KEYBOARD PORT 


E07D 09 


EXX 




/RETRIEVE ALL RB3S 


E07E CB10 USERCHECK30:. RALR 


B 


/ROTATE BIT UP 


E080 J0C5 


JRNC 


usEnaiECKio 


/LOOPS TIWJ ALL BANKS 


E082 CB10 


RALR 


B 




E084 E041 


outp 


B 


/TURN ON BANK 1 


E086 3E0E 


MVI 


A, 14 




E088 CO10E4 


CALL 


VIDEO 


/TOGGLE CURSOR ON 


E088 








E08B 2AE7FB CLRBRK 


UILO 


BKPTLOC 


jllL - ADDHESS OP BREAKPOINT 


E0BE 11E9FB 


UI 


D.BRKCODE 


/DE - iNSTiaxrnoN storage 


EB91 ED53E7FB 


sded 


BKPTUK 


/SAVE UE AS BREAKPOINT ADDRESS 


E095 IA 


LDAX 


D 


/GET INSTRUCTION 


E096 77 


MOV 


M,A 


/PUT BACK IN MEMORY 


E097 . / 








E097 31D0FB START 


UI 


SP,SPTR 


/INITIALIZE STACK 


E09A 2100F0 


UI 


H, SCREEN 


/INITIALIZE TOP OF SCREEN 


E09U 22DFFB 


SMLO 


TOSCN 




E0A0 C082E5 


CALL 


PROMPT 




E0A3 CD02F.2 KEVPOL 


CALL 


E9CAPE 


/READ KEYBOARD 


E0A6 28FB 


JRZ 


KEYPOL 


/LOOP IF NO INPUT 


E0A8 E6SF 


AMI 


5FII 


/CHANGE TO UPPER CASE 


E0AA 2197E0 , 


UI 


H, START 


/PUSH RETURN ADDRESS 


E0AD E5 


PUSH 


li 




E0AE FE04 


CPI 


•D'-64 


/CHUCK FOR CLRSCN 


E0130 CC10E4 


CZ 


VIDEO 


/ECHO CLEARSCN 


E0B3 FE41 


CPI 


•A* 


/RANGE CHECK 
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E0O5 D8 


RC 




/TOO SMALL 


E0D6 FE5B 


CPI 


05BH 




E0O8 D0 


RNC 




/TOO LARGE 


E0B9 21CAE0 


UI 


H,CMom 


/III- - STARr OF COMMAND TABLE 


EOBC F5 


PUSH 


PSW 


/SAVE CHARACTER 


E0BD D641 


SUI 


•A' 


/SUBTRACT ASCII BIAS 


E0BF 87 


ADD 


A 


/DOUBLE FUR 2 BYTE ADU1ESS 


EOC0 5F 


MOV 


E,A 




E0C1 1600 . 


MVI 


D,0 


/DE - INDEX 


E0C3 19 


DAD 


D 


/ (HL) - JUMP ADDRESS 


E0C4 SE 


MOV 


E,M 


/GET LSBYTE 


E0C5 23 


I NX 


H 




E0C6 56 


MOV 


D,M 


/GET HS1JYTE ' 


E0C7 EB 


XCHG 




/HL - JUMP ADDRESS 


E0C8 Fl 


POP 


PSW 




E0C9 E9 


PCHL 




/AWAY WE GO 


E0CA 


; 






E0CA 


I COMMAND TABLE 






EDCA 


» 






E0CA 97E0 


CMDTB DW 


START 


;A 


E0CC 00E8 


DW 


FLB00T 


>B 


E0CE 83E3 


DW 


COMPR 


»c 


E0D0 CBE5 


DW 


HEXRUL 


;D 


E0D2 DCE7 


DW 


EXTCOM 


;E 


E0D4 A2E3 


DW 


FIND 


if 


E0D6 5DE1 


DW 


EXEC 


;G 


E0D8 68E1 


DW 


SYSTAT 


JH 


E0DA EEE3 


DW 


PINPT 


)I 


E0DC 56E2 


DW 


COLD 


»J 


E0DE C1E7 


DW 


SETBRK 


JK 


E0E0 14E3 


DW 


LORAM 


»L 


E0E2 39E3 


DW 


MOVEB 


;M 


E0E4 61E3 


DW 


NDMT 


»N 


E0E6 FDE3 


DW 


POUTP 


»0 


E0E8 14E6 


DW 


PROGRAM 


/P 


E0EA 38E2 


DW 


aiKSM 


»Q 


E0EC CBE6 


DW 


DREGS 


;R 


E0EE AFE3 


DW 


siai 


JS 


E0F0 87E2 


DW 


TMEM 


}T 


E0F2 0BE3 


DW 


USER 


>u 


E0F4 97E0 


DW 


START 


|V 


E0F6 02E8 


DW 


MSIJOOT 


»w 


E0F8 97E0 


DW 


STAirr 


>x 


E0FA 77E2 


DW 


ECHO 


it 


E0FC 20E3 


DW 


ZEROM 


;z 


E0FE 


1 






E0FE 3E04 


SIGN.ONj MVI 


A, 4 




E100 CD10E4 


CALL 


VIDEO 




E103 








E103 21A3F1 


UI 


h.horiz* 


5fSCR£ENH9 


E106 1I072A 


UI 


D,2A07H 




E109 3E7F 


MVI 


A,07FII 




E19B CD4CE1 


CALL 


DRBOX 




E10E 








E10E 21F5F1 


UI 


H,HCRIZ* 


6 f SCREENS 1 


Elll 110526 


UI 


D, 260511 




E114 3EA0 


MVI 


A,0AUII 
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El 16 CD4CE1 




CALL 


iiinox 




El 19 










El 19 2I47F2 




IXI 


ll,IIOniZ*7lQCHEENt23 


E11C 110)22 




IXI 


D, 220311 




El IF 3E20 




MVI 


V ' 




El 21 CD4CK1 




CALL 


irbox 




E124 










El 24 CD77E5 




CAI.L 


PTSTUG 




E127 1B1A08 




DB 


E5CP,26,0 




E12A 56454354 




DT 


'VECTOR GRAPHIC 


EXECUTIVE 5.0b' 


EI2E 4F522047 










El 32 52415018 










El 36 494T2015 










E13A 58154355 










F.13E 54195645 










El"42 2O152EI0 










E146 62 










El 47 1BHUM18E 




no 


ESCP, 0,13,14*8011 


E14Q C9 




RET 






E14C 










EMC E5 


UIBDX: 


POSH 


II 




KHD 42 




MOV 


D,D 




EME 77 


H1IJOX10: 


MOV 


M,A 




E14F 23 




INX 


II 




El 50 10FC 




DJNZ 


DRBOX10 




El 52 El 




POP 


II 




E153 D5 




push 


D 




E154 115000 




LXI 


D,80 




E157 19 




DAD 


D 




E158 Dl 




POP 


D 




E159 ID 




DCR 


E 




E15A 2OF0 




JRNZ 


DRBOX 




E15C C9 




RET 






E15D 


J 








E15D 


j*» EXECUTE THE 


; PROGRAM 


1 AT WE ADUtESS ' 


k*k 


E15D 


) 








El 50 CD/7E5 


exec 


CALL 


PrSTNG 




Elfifl 474FA0 




DHI 


•GO ' 




E163 CD92E1 




CAM. 


All EX 


;READ ADD FROM KB 


E166 EB 




xciig 






EI67 E9 




pqil 




j. JUMP TO IT 


E168 


i 








E168 


DISMAY 


SYSTEM 


HARnWRE STATUS 




E168 


I 








E168 CD/4E5 


SYSTAT: 


CAI.L 


ritstng 




E16B 5241CD 




DTtl 


'RAM' 




E16E 3AFFFF 




IJA 


RAM HAG 


jPOINT TO LOW RAM FLAG 


E171 CD7FE1 




CAM. 


CJIECKUSEU 


jCUECK AND PRINT ACTIVE 


E174 C074E5 




CALL 


RPT5TNG 


; BANKS 


E177 56494445 




I7T 11 


•VIDEO' 




E17B CF 










E17C 3AFEFF 




UV\ 


V1DEOFLAG 


;NCW CHECK VIDEO FLAG 


E17F 0608 


CI ID: WIS EH. • 


MVI 


B,8 


/TEST 8 BANKS 


E181 IF 


aiFxrwiiJEiuot 


RAR 




1 ROTATE HIT WTO CARRY 


E182 30011 




JHNC 


CHECKUSEH20 


;SKIP IF NOr SET 


F.184 4F 




MOV 


C,A 


j SAVE BANK BYTE 


E185 Crv\l*:i 




CAI.L 


SPCE 


; PR I NT SPACE 











PACE 6 


(88 3E09 




MVI 


A, 9 


jFORM BANK NUMBER 


E18A 90 




SUB 


B 




E1BB CDEAE2 




CAIX 


PT2 


;PR1HT BANK NIMRF.R 


E18E 79 




MOV 


A,C 


j RETRIEVE BANK BYTE 


E18F 10F0 


CHECKUSEH20: 


DJNZ 


CHECKUSER10 


jLOU> TIUUJ ALL BANKS 


E191 C9 




RET 






E192 


J 








E192 


j«» CONVERT UP TO 4 HEX 


I DIGITS TO BIN 




E192 


; 








E192 0E04 


AH EX 


MVI 


C,4 


jCOUNT OF 4 DIGITS 


E194 210000 


AHE0 


LXI 


11,0 


1 16 BIT ZERO 


E197 CD02F.2 


AIIE1 


CALL 


F.fEAI'E 




E19A FE20 




CPI 


' • 


j SPACE? 


E19C 281D 




jnz 


STCOVH 




E19E CDC0E1 




CALL 


HEX 


; check value 


E1A1 38F4 




JRC 


AIIE1 




E1A3 29 




DAD 


II 


jMULT 11*16 


E1A4 29 




DAD 


II 




E1A5 29 




OAD 


11 




E1A6 29 




DAD 


11 




E1A7 85 




ADD 


L 




E1AB 6F 




MOV 


L,A 




E1A9 00 




DCR 


C 


|4 DIGITS? 


E1AA 20EB 




JRNZ 


AHE1 


jKEF.P READING 


El AC EB 




xac 






E1AD 3E20 


SPCE 


MVI 


A,' ' 


;PRINr SPACE 


E1AF C310E4 


PTCN 


JMP 


VIDEO 




E1B2 3E0D 


CRLF 


MVI 


A,0MI 


1 PRINT CR 


E1B4 CD10E4 




CALL 


VIDEO 




E1B7 3E0A 




HVI 


A,0AH 




E1B9 18F4 




JR 


PTCN 




E1BB 


> 








E1BB CD10E4 


SPCOVR 


CALL 


VIDEO 




E1BE 18EC 




JR 


SPCE-1 




E1C0 


; 








E1C0 


j CHECK FOR HEX VALUE, 


CONVERT 




E1C0 FE30 


HEX 


CPI 


■0« 


»<0 


E1C2 D8 




RC 






E1C3 FE3A 




_PI 


'l' 


J>9 


E1C5 3009 




JRC 


NUM 




E1C7 E65F 




ANI 


5FH 


jUPCER k LOWER CASE 


E1C9 FE41 




CPI 


'A' 


;<A 


E1CB D8 




RC 






E1CC FE47 




CPI 


•G' 


)>F 


E1CE 3F 




CMC 






E1CF D8 




RC 






E1D0 CD10E4 


NUM 


CALL 


VIDEO 




E1D3 D630 




SUI 


48 


j ASCI I BIAS 


E1D5 FE0A 




CPI 


10 


;DIGIT 0-10 


E1D7 3802 




JRC 


ALFA 




E1D9 D607 




SUI 


7 


;ALP1IA BIAS 


E1DB A7 


ALPA 


ANA 


A 


jCLFAR CY 


E1DC C9 




RET 




;HITH CY CLEAR 


E1DD 


1 








E1DO 


j READ 2 DIGITS FROM THE CONSOtE 




E1DD 0E02 


A1IE2 


MVI 


C,2 




E1DF 181)3 




JR 


AHE0 
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| SHORT ROUTINE TO SAVE CODE 



CD92E1 


TAIIEX 


CALL 


AIIEX 




18 AC 




jr 


AH EX 






1 

/** READ FROM CONSOLE 


TO REG A **» 




CD02E2 


I 

RDCN 


CALL 


E9CAPE 


/READ KEYBOARD 


28 FB 




jnz 


RDCN 




FE60 




CPI 


6B»I 




38C0 




jnc 


PTCM 




EG5F 




ANI 


5FH 




1BBC • 




JR 


PTCN 




CD02E2 


1 

PAUSE 


CALL 


ESCAPE 




FE20 




CPI 


i i 




C0 




RNZ 






CD02E2 


PLOOP 


CALL 


E9CAPE 




FE20 




CPI 


i ■ 




C2F9E1 




JNZ 


PLOOP 




C9 




RET 






CD0FE2 


1 

ESCAPE 


CALL 


KEYSTAT 




C8 




RZ 






CD17E2 




CALL 


DATACONV 




FE1B 




CPI 


E9CP 


/ESCAPE 


CA97E0 




JZ 


START 




C9 




RET 






onoo 


KEYSTAT 


IN 


co»e 




E640 




ANI 


RCA 




C9 


1 

j KEYBOAHn 


RET 
DATA FETCH 






DBfll 


1 

KEYDATA: 


IN 


COND 


/KEYBOARD DATA 


C9 




RET 








\ 

/ KEYBOAUT) 


FETCH AMD CODE CONVERSION 




DO01 


; 

DATACONV: 


IN 


COND 




E5 


CUW/EHT: 


PIEH 


H 




C5 




PUSH 


B 




01O*jO0 




LXI 


B, TAflLEND-KTABL/2 


2I31E2 




UI 


H,KTABL 




EDAl 


LOOP 


CCI 




1 COMPARE TABLE 


2006 




jnz 


FND 




23 




INX 


H 




EA21E2 




JPE 


LOOP 


/CONT LOOKIM3 


1801 




JR 


NFND 




7E 


FND 


MOV 


A f M 


/NEW CODE 


E67F 


NFNO , 


ANI 


7FH 


/MASK DOWN 


CI 




POP 


B 




El 




POP 


II 




C9 




RET 








1 

/ THIS TAUI£ CAM BE EXTENDED IF DESIRED 
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E231 
E233 
E235 
E237 
E239 
E23B 
E23B 
E23B 
E23B 
E238 
E23E 
E242 
E245 
E248 
E24A 
E24B 
E24C 
;E24D 
IE258 
IE252 
JE253 
JE256 
E256 
E256 
E256 
E259 
E25D 
E261 
E262 
E265 
E267 
E26A 
E26D 
E271 
E275 
E276 
E277 
E277 
E277 
E277 
E27A 
E27E 
E27F 
E282 
E285 
E287 
E287 
E287 
E287 
E28A 
E28E 
E28F 
E292 
E295 
E298 
E299 
E29A 



E15D 
F150 
A17E 
B15C 
6015 
E230 - 



CD77E5 

43484B53 

554DA0 

CDE1EI 

0600 

7E 

80 

47 

CD03E3 

20F8 

78 

C3EAE2 



CD77B5 

434F4C44 

20424F4F 

D4 

3A00F8 

FEC3 

CA00F8 

CD74E5 

4E4F2053 

59535445 

CD 

C9 



CD77E5 

4543484F 

A0 

CD02E2 

C410E4 

18F8 



CD77E5 

54455354 

A0 

CDE1E1 

015A5A 

CDC1E2 

C5 

E5 

D5 



KTABL DO 

DD 
DO 
DD 
DD 
TABLEND EQU 
/ ORG 

; 

/ CHECKSUM ROUTINE 
CHKSM CALL 

DTH 



CHKSMLP 



; 
I 
I 

COLD 



CALL 

HVI 

MOV 

ADD 

MOV 

CALL 

JRNZ 

MOV 

JMP 

CP/H COLD BOOT 



0E15DH 

0F15B1I 

0A17EH 

001501 

06015H 

S 

KTABL+30 



PTSTNG 
•aiKSUM 

TAIIEX 

B,0 

A r M 

B 

B,A 

BMP 

aiKSMLP 

A,B 

PT2 



;) 

it 
l" 

A 

/CURSOR UP 

/ROOM FOR 15 CONVS 



CALL 


PTSTNG 


DTH 


'COLD BOOT 1 


L» 


COLDSTART 


CPI 


0C3H 


JZ 


COLDSTART 


CALL 


RPTSTNG 


DTH 


*N0 SYSTEM' 



RET 

; 

» KEYBOARD ECHO ROUTINE 
I 

ECHO CAIX PTSTNG 

DTH 'ECHO • 



ECOLP 



CALL ESCAPE 

CNZ VIDEO 

JR ECOU 



/LOOK AT KEYBOARD 
/PRINT IF KEYPRESS 
/CONTINUE LOOPING 



/** MEMORY TEST ROUTINE *** 

; 

TMEM CALL PTSTN3 

DTH 'TEST • 



CYCL 



CALL 


TAIIEX 


/READ ADDRESSES 


LXI 


B,5A5AII 


/INI 8,C 


CALL 


RNDM 




PUSH 


B 


/KEEP ALL REGS 


PUSH 


il 




PUSH 


D 
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E29B CDC1E2 


TLOP 


CALL 


RNOM 




E29E 70 




MOV 


M,B 


|WRITE IN MEM 


E29F CDW3E3 




CALL 


BMP 




E2A2 C29BE2 




JNZ 


TLOP 


; REPEAT LOOP 


E2A5 Dl 




POP 







E2A6 El 




POP 


II 


{RESTORE ORIG 


E2A7 CI 




POP 


B 


j VALUES Cf 


E2A8 E5 




PUSH 


H 




E2A9 D5 




PUSH 


D 




E2AA CPC1E2 


RLOP 


CALL 


RNJJM 


(GEN NEW SUQ 


E2AD 7E 




MOV 


A,M 


j READ MEM 


E2AE B8 




CMP 


B 


jCOMP MEM 


E2AF C4E1E2 




CNZ 


ERR 


j CAI.L ERROR RTN 


E2D2 CD03E3 




CALL 


BMP 




E2D5 C2AAE2 




JNZ 


RLOP 




E2B8 Dl 




POP 


D 




E2B9 El 




POP 


H 




E2BA 3E2E 




MVI 


X • ■ 
n, • 




E2UC CD10E4 




CALL 


VI LEO 




E2BF 18D4 




JR 


CYCL 




E2C1 


;*« THIS 


ROUTINE GENERATES RANDCM NOB 


*** 


E2C1 CDF3E1 


RNDM 


CALL 


PAUSE 




E2C4 78 




MOV 


A,B 


jLOCK AT B 


E2C5 E6B4 




AN I 


0B4H 


jMASK BITS 


E2C7 A7 




ANA 


A 


jCLEAR CY 


E2C8 EACCE2 




JPE 


PEVE 


jJUMP IF EVEN 


E2CB 37 




SIC 






E2CC 79 


PEVE 


MOV 


A,C 


jLOOK AT C 


E2C0 17 




RAL 




j ROTATE CY IN 


E2CE 4F 




MOV 


C,A 


1 RESTORE C 


E2CF 78 




MOV 


A,B 


jLOOK AT B 


E2D0 17 




RAL 




j ROTATE CY IN 


E2D1 47 




MOV 


B,A 


j RESTORE B 


E2D2 C9 




RET 




jRETORN W NEW B,C 


E2D3 


1 








E2D3 


j** ERROR 


PRINr OUT ROUTINE 




E2D3 


J 








E2D3 CDB2EI 


itad 


CALL 


CIU.F 


jPRINT CR,LF 


E2D6 CDF3E1 




CAI.L 


PAUSE 




E2D9 7C 




MOV 


A,H 


jPRINT 


E2DA CDEAE2 




CALL 


PT2 


lASCII 


E2D0 7D 




MOV 


A,L 


j cooes 


E2UE C32BE7 




JMP 


PT2S 


{FOR ADtRESS 


E2E1 


; 








E2E1 F5' 


EUR 


PUSH 


PSW 


jSAVE ACC 


E2E2 CDD3E2 




CALL 


PTAD 


jPRINT ADD. 


E2E5 78 




MOV 


A,B 


j DATA 


E2E6 CD2nE7 




CALL 


PT2U 


iwnrrrEN 


E2E9 Fl 




POP 


l-SW 


jDATA READ 


E2EA F5 


PT2 


P16II 


PSW 




E2EB CDF1E2 




CALL 


BINII 




E2EE Fl 




POP 


PSW 




E2EF 1804 




JR 


BINL 




E2F1 IF 


BUM 


RAR 




jSNIFT RHT 4 BITS 


E2F2 IF 




RAR 






E2F3 IF 




RAR 






E2F4 IF 




RAR 
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E2F5 
E2F7 
E2F9 
E2FB 
E2FE 
E300 
E3B3 
E303 
E3B3 
E304 
£305 
E307 
E308 
E309 
E30A 
E33B 
E306 
E30B 
E30fi 
E311 
E314 
E314 
E314 
E317 
E31B 
E31D 
E320 
E320 
E320 
E323 
E327 
E328 
E32fl 
E32C 
E32F 
E330 
E331 
E332 
E333 
E336 
E337 
E339 
E339 
E33A 
E33D 
E341 
E342 
E345 
E346 
E349 
E34A 
E34B 
E34C 
E34D 
E34E 
E350 
E352 



E60F 

C630 

FEJA 

DA10E4 

C607 

C310E4 



7B 

95 

2002 

7A 

9C 

23 

C9 



CD77E5 
5450C1 
C30001 



CD77E5 
4C4F2052 
41CD 
C 30000 



CD77E5 

46494C4C 

A0 

CDE1E1 

E5 

QDDCE1 

EB 

E3 

CI 

71 

CD03E3 

C8 

18F9 

47 

CD77ES 

4D4F5645 

A0 

CDE1E1 

E5 

CD92E1 

EU 

E3 

4E 

E3 

78 

FE4D 

2804 

7E 



BINL 



ANI 

ADI 

CPI 

JC 

ADI 

JMP 



0FI! 

48 

58 

VI LEO 

7 

VIDEO 



jLOW 4 BITS 
jASCH BIAS 
jDIOIT 0-9 

jUIGIT A-F 



I COMPARE ADUIRSSES AND INCHlMEIir II 



BMP 



MOV 

SUB 

J1UJZ 

MOV 

SBO 

noc 

RET 



,- JUMP TO USER RAM 
USER CALL 

DTH 
JMP 

; 

j JUMP TO RAM AT 
LORAM CALL 

DTH 



A,E 

L 

CO UN 

A,D 

II 

II 



PTSTNG 

'Tl'A' 

TPA 



PTSTNG 
•LO RAM' 



JMP 

I 

I ZERO OR FILL MEMORY WITH A COU3TANT 
ZERCM CALL PTSTNG 

DTH 'FILL • 



ZIjOOP 



MOVER 



MOVENTR 



HLOOP 



CALL 


TAIIF.X 


PUSH 


II 


CALL 


AH £2 


xac 




XTHL 




POP 


B 


MOV 


M,C 


CALL 


BMI> 


RZ 




JR 


ZLOa' 


MOV 


B.A 


CAI.L 


itstno 


DTH 


'MOVE 


CALL 


TAHEX 


PUSH 


It 


CAI.L 


Allh'X 


xac 




XTHL 




MOV 


C,M 


XTHL 




MOV 


A,0 


CPI 


'M' 


JR2 


NEXill 


MOV 


A,M 



;READ ADIHES5ES 

)GAVE H 

jREAD 2 DIGITS 

jRESTORE 11,1. 

jWRITE ir/lt) MEM 
jCOMP ADD, UC.n II 
I RETURN IF DONE 
j CONTINUE TIL DONE 

/SAVE CODE 



;READ ADlttESSES 



jBACK TO NU1MAI. 



PAGE 11 



E353 E3 




xtrl 




E354 77 




MOV 


M,A 


E355 E3 




XTHL 




E3S6 71 


NEXQI 


MOV 


M,C 


E357 23 




INX 


H 


E3S8 E3 




xtiil 




E359 CD03E3 




CALL 


BMP 


E35C CA97E0 




JZ 


START 


E35F 18EA 




JR 


MLOOP 


E361 


/ NON DESTRUCTIVE MEMORY TEST 


E361 CD77E5 


NDMT 


CALL 


PTSTNG 


E364 40454020 




DTH 


•MEM TOP 


C368 544FD0 








E368 210000 




UI 


H,0 


E3f>E 4E 


NOLOP 


MOV 


C f M 


E36F 06FF 




MVI 


B,0FF1I 


E371 7fl 




MOV 


M,B 


E372 7E 




MOV 


A r M 


E373 B8 




CMP 


B 


E374 C27CE3 




JNZ 


ERRJP 


E377 0600 




MVI 


B,0 


E379 70 




MOV 


M,B 


E37A 7E 




MOV 


A,M 


E37B B8 




CMP 


B 


E37C C2E1E2 


ERRJP 


JNZ 


ERR 


E37F 71 




MOV 


M,C 


E380 23 




INX 


H 


E381 18EB 




JR 


NDLOP 


E383 


/ COMPARE 


TWO BLOCKS OF MEMORY 


E383 CD77E5 


COM PR 


CALL 


PTSTNG 


E386 434D5OA0 




DTH 


"CMP ' 


E38A CE61EI 




CALL 


TAHEX 


E38D E5 




PUSH 


H 


E38E CD92E1 




CALL 


AHEX 


E391 EB 




XCHG 




E392 7E 


WLOP 


MOV 


A,M 


E393 23 




INX 


11 


E394 E3 




XTHL 




E395 Be 




CMP 


M 


E396 46 




MOV 


B,M 


E397 C4E1E2 




CNZ 


ERR 


E39A CD03E3 




CALL 


BMP 


E39D E3 




XTHL 




E39E 20F2 




JRMZ 


VHLOP 


E3A0 Fl 




POP 


PSW 


E3A1 C9 




RET 




E3A2 


j SEARCH 


FOR SPECIFIC 


COOES 


E3A2 F5 


find 


PUSH 


PSW 


E1A3 CD77E5 




CALL 


PTSTNG 


E3A6 46494E44 




DTH 


•FIND-2 


E3AA 2D32A0 








E3AD 1800 




JR 


SRCHENT 


E3AF F5 


sroi 


PUSH 


PSW 


E3B0 CD77E5 


r 


CALL 


PTSTNG 


E3B3 46494E44 




DTH 


'FIND-1 « 


E3B7 2D31A0 








E3BA CD61E1 


SRCIIElir 


CALL 


TAHEX 



I START AT ZERO 



jPRINT ERROR 



PAGE 12 



E3B0 E5 




PUSH 


H 


E3BE CDOCei 




CALL 


AHE2 


E3C1 ES 




XCHG 




E3C2 45 




MOV 


B,L 


B3C3 El 




POP 


II 


E3C4 Fl 




POP 


PSW 


E3C5 FE53 




CPI 


•S' 


E3C7 F5 




PUSH 


PSW 


E3C8 2807 




JRZ 


CONT 


E3CA E5 




PUSH 


H 


E3CB CDOCEI 




CALL 


A1IE2 


EKE EB 




xao 




EXF 4D 




MOV 


C,L 


E3D0 El 




POP 


II 


E3D1 7E 


CONT 


MOV 


A,M 


E3D2 B8 




CMP 


B 


E3D3 2012 




JRNZ 


SKP 


E3D5 Fl 




POP 


PSW 


E3D6 FE53 




CPI 


•s» 


E3D8 F5 




PUSH 


PSW 


E3D9 2806 




JRZ 


03 CP 


E3DB 23 




INX 


II 


E3DC 7E 




MOV 


A,M 


E3DD 2B 




DCX 


H 


E3EE B9 




CMP 


C 


E3DP 2006 




JRNZ 


SKP 


E3E1 23 


OBCP 


INX 


II 


E3E2 7B 




MOV 


A,M 


E3E3 2B 




DCX 


H 


E3E4 CDE1E2 




CALL 


ERR 


E3B7 CD03E3 


SKP 


CALL 


BMP 


E3EA 20ES 




JRNZ 


CONT 


E3BC Fl 




POP 


PSW 


E3ED C9 




RET 




E3EE 


; 






E3EE 


1 INPUT DATA 


FROM A PORT 


E3EE CD77E5 


PINPT 


CALL 


PTSTNG 


E3F1 494EA0 




DTH 


•IN ' 


E3F4 CD00E1 




CALL 


A1IR2 


E3F7 4B 




MOV 


C,E 


E3F8 ED7B 




IMP 


A 


E3FA C3EAE2 




JMP 


PT2 


E3FD 


1 






E3FD 


t OUTPUT TO A PORT 




E3FD CD77E5 


POUTP 


CALL 


PTSTNG 


E400 4F5554A0 




DTH 


'our • 


E404 CDOCEI 




CALL 


AHE2 


E407 CDDDE1 




CALL 


AHE2 


E40A 4D 




MOV 


C,L 


E40B ED59 




OUTP 


E 


E40O C9 




RET 




E40G 


I 







/SAVE II 

/READ 2 DIGITS 
;IKOfE,D=F 
/PUT CODE IN B 
I RESTORE II 



/READ 2 DIGITS 



;READ MEMORY 
j COMPARE TO CODE 
j SKIP IF NO COMP 
j FETCH CONTROL 



j READ NEXT BYTE 
iDECR ADDRESS 
/PRINT COOES 
/CHECK IF DONE 
;BACK FOR MORE 



; READ 2 DIGITS 



/READ 2 DIGITS 
/READ 2 DIGITS 
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E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E4HE 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E40E 




E4BE 




E40E 




B40E 




E413E 




E4HE 




E40E 




E40E 




E40E 




E40E 




E40E 


0050 


E40E 


0018 


E40E 




E40E 


3E14 


E410 




E410 FS 


E411 


C5 


E412 D5 


E411 


E5 


E4U 


E67F 


E416 


4F 


E417 


CDECE4 


E41A 


3AEAFU 


E41D A7 


E41E 


280A 


E420 


3D 


E421 


32EAFB 


E424 CA30E5 


E427 


CJ2AE5 


E42A 


79 


E42B 


FE20 


E42U F261R4 


E430 


FE1C 


E432 


F2CEE4 


E435 


E5 


£436 


2144K4 



video driver for flasihriter ii 


* 
* 


<>l>«lt>lltlll<Mlltt«UM>llt<llll>il>in<»t 


ccwmoL coue commands : 


* 
* 


(B) 


home cursor 


* 


(0) 


CLEAR SCREEN 


* 


(E) 


print control code 


* 


(11) 


BACKSPACE 


* 


(I) 


TAB 


* 


(-1) 


LINEFEED 


* 


(M) 


CARRIAGE RETURN 


• 


(N) 


NO CURSOR 


* 


(P) 


CLEAR TO END OF SCREEN 


* 


(Q) 


CLEAR TO END OF LINE 


* 


(R) 


CURSOR DOWN 


* 


(T) 


TOGGLE REVERSE VIDEO 


* 


(U) 


cursor UP 


« 


(W) 


CUHSQl LEFT 


* 


(X) 


CI.EAR TO START OF LINE 


• 


(Z) 


CUR SCR RIGHT 


• 


ESC 


XY POSITION LEAD-IN 


* 
• 



! VIDEO BOARD PARAMETERS 
ICniZ EQU 80 

VERT EQU 24 



tvidso 



VIDEO 



DISPL 



MVI 



A, , T'-64 



NOXY 



PUSH 


PSW 


PUSH 


U 


PUSH 


n 


PUSH 


II 


ANI 


07FH 


MOV 


C,A 


CALL 


LIFTCURS 


LDA 


XYFIAG 


ANA 


A 


JR2 


NOXY 


DL'R 


A 


STA 


XYFIAG 


JZ 


YPOS 


JHP 


XPOS 


MOV 


A,C 


CPI 


■ i 


.JP 


PRINT 


CPI 


HX-TABL 


JP 


REr 


PUSH 


11 


UI 


ll.TABL 



iNO. OF aiARACTEHS 
jNO. OF LINES 

jTCGGLE VIDEO 



jMASK OFF MSBIT 

iPirr char in c 

j ERASE CURSOR 

;GET POSITIONING FLAG 

|QIECK IF "nttJE 

jSKIP IF FAI.SE 

;DECHtMENr FLAG 

j SAVE NEW VALUE 

jY IF SECOND VALUE 

;ELSE X 

jRECGVEH CHARACTER 

I PRINTING COLE? 

I TOO iaioe? 

I CURSOR IN MEMORY 
; TABLE START 



PAGE 14 



E439 


5F 




MOV 


E,A 




E43A 


1600 




MVI 


l>,0 




E43C 


19 




U\D 


D 




E43D 


5E 




MOV 


E,M 




E43E 


2160E4 




UI 


II, PCL 




E441 


19 




DAD 


D 




E442 


E3 




xtiil 




RU.XWER 11 


E443 C9 




RET 


1 


execute Hour i he 


E444 




j CONTROL CHARACTER JUMP TABLE 




E444 


6E 


TABL 


DB 


RET- PCL j 


t* 


E445 


6E 




UB 


RET-KL j 


A 


E446 


63 




DO 


llfME-I-CL 


B IKMK CURSOR 


E447 


6E 




DB 


RKT-PCL 


c 


E448 


60 




DB 


KJRM-ICL 


D CLEAR SCREW 


E449 


00 




DB 


ICL-PCL 


E PUT CONIltOL 


E44A 


6E 




CO 


RtT-PCL 


F 


E44U 


6E 




DB 


RET-l-CL 


G 


E44C 


42 




DB 


DBACKSP-PCI. 


11 BACKSPACE 


E44D 


59 




DO 


TAB -ITL 


I TAB OVER 


E44E 


12 




DB 


LIMf-PCl. 


J LINE FEED 


E44F 


6E 




DB 


RET-PCL 


|K 


E4S0 


6E 




LO 


RET-pCL 


|L 


E451 


6A 




DB 


CRET-PCL 


M CARRIAGE REr 


E452 


71 




DB 


ret» 1-PCL 


jN NO CUHSdl 


E453 


6E 




DB 


RET-PCL 


|0 


E454 


9E 




ne 


CLEND-KX 


iP clh :;n to enu 


E455 A3 




DB 


CLL1ME-PCL 


,Q CIR LINE TO END 


E456 


12 




DB 


LINF-PCL 


•R CUR SCR LXMN 


E457 


6E 




DO 


ncr-pci. 


S 


E458 


76 




DB 


TVIDF-PCL 


(T TCGG1E VIDEO 


E459 


60 




DB 


CUR SUP- PCL 


U CURSOR UP 


E45A 


6E 




DB 


ItLT-PCL 


V 


E45B 


50 




DB 


BACKSP-ICL 


•W CURSOR LEFT 


E45C 


E8 




DB 


CLSTRT-ICL 


X CLR START OF LN 


E45D 6E 




DB 


RET-PCL 


Y 


E45E 


06 




DB 


EOL-PCI. 


[Z CURSOR RIGHT 


E45F C3 




DB 


LEDIN-K.T. 


I ESC-XY IEADIN 


E460 




J 








E460 




j PRINT CODE IN B REGARDLESS 




E460 


48 


PCL 


MOV 


C,B 




E461 




j PlUNr THE 


aiARACrEH 


UN HIE SCREEN 




E461 


3AIX)FB 


PRINT 


LDA 


VFL 




E464 


A9 




XRA 


C 




E465 


77 




MOV 


M,A 




E466 




j EOL CHECKS THE CURS 


POS FOR END (*' LINE 


E466 


3ADUFB 


EOL 


LDA 


CUHPOS 




E469 


3C 




INU 


A 




E46A 


FESO 




CPI 


HHUZ 




E46C 


30 5D 




JRC 


lAbHET 




E46E 


AF 




XRA 


A 




E46F 


32DOFU 




STA 


cm IPOS 




E472 




1 MOVE IN 1 


LINE 






E4/2 


3AICFH 


L1NF 


I.DA 


LINKNO 




E4 75 


FE17 




CPI 


vEirr-i 




E477 


202) 




jhnz 


ixcciu. 




E479 




j SCROLL UP 


IX4E LINK 






E479 


215H0H 


SCROI.L 


UI 


n.imuz 
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E47C ED5BDFFB 

E480 19 

E481 EDA0 

E483 EDA0 

E485 7C 

E486 FEF7 

E438 20F7 

E48A 7D 

E48B FE80 

E48D 20P2 

E48F 3ADCF8 

E492 

E492 EB 

E493 0650 

E495 3620 

E497 23 

E498 05 

E499 20FA 

E49B 30 

E49C X 

E49D 320CFB 

E4A0 182C 

E4A2 

E4A2 

E4A2 3620 

E4A4 3A0BFU 

E4A7 A7 

E4A8 2824 
E4AA 30 
E4AB 28 
E4AC 3620 
E4AE I81B 
E4B0 

E4Q0 3AOBF8 
E4B3 3D 
E4B4 F2CBE4 
E4B7 1811 
E4B9 

E4B9 3ADBFB 
E4BC F607 
E4BE 18A9 
E4C0 

E4C0 CO10E5 
E4C3 AF 
E4C4 32LJCFH 
E4C7 32DDFB 
E4CA 
E4CA AF 
E4CB 32DBFH 
E4CE 

E4CE CDECE4 
E4D1 El 
E4D2 Dl 
E4D3 CI 
E4D4 Fl 
E4D5 C9 
E4D6 3ADl*B 



LINENO 



B.HOHIZ 

»V ' 

II 

B 

ELOP 

A 

A 

LINENO 

RET 



LCEO 

DAD 
SCRL LDI 

LDI 

MOV 

CM 

JRNZ 

MOV 

CPI 

JRNZ 

LDA 
I ERASE BOTTOM LINE 
EBOTL XCHG 

MVI 
ELOP HVI 

INX 

OCR 

JRNZ 

DCR 
NOSCRL INR 

STA 

JR 

; 

; ERASE BEFORE BACKSPACING 
DBACKSP MVI M.20H 

lda cimpos 

ANA A 

JRZ RET 

DCR A 

CCX H 

MVI M,' • 

JR TABRET 
J MOVE THE CURSOR BACK 

BACKSP LDA CURPOS 

DCR A 

JP TABRET 

JR CRET 

j TAB OVER TO THE NEXT 8 MULTIPLE 

TAB LDA CURPOS 

ORI 7 

JR EOL+3 

; CIXAR THE SCREEN AHD IKWE UP 

FORM CALL CLEAR 

I KME XRA A 

STA LINENO 

STA VFL 
; CARRIAGE RETURN 

CRET XRA A 

TABRET STA CURPOS 

; RETURN TO THE CALLING ROUTINE 



TOSCN 
D 



A, II . 

IIORIZ«VERT* SCREEN/2 56 

SCRL 

A,L 

IIORIZ«VERTtSCREENt0FFH 

SCRL 



RET 



TV1DF 



CALL 

POP 

POP 

POP 

POP 

RET 

LDA 



LIFTCURS 

II 

D 

B 

PSW 

VFL 



|CI.R VI D FLAG 
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E4D9 EE80 








XRI 


8011 




E4D8 32DDFB 








STA 


VFL 




E4DE 18EE 








.JR 


RET 




E4E0 


1 












E4E0 


1 MOVE THE 


CURSCR UP 






E4E0 3ADCFB 


CURSUP 






LDA 


LINENO 




E4E3 A7 








ANA 


A 




E4E4 28E8 








JRZ 


RET 




E4E6 3D 








DCR 


A 


| 


E4E7 32CCFB 


STIJILN 






STA 


LINENO 




E4EA 18E2 








JR 


RET 




E4EC 


1 












E4EC 


i CALCULATE ME* 


1 ADD FROM CURSOR POSITION 


E4EC 


1 












E4EC 3ADCFB 


LIFTCURS 




LDA 


LINENO 


(GET CURRENT LINE 


E4EF CD67E5 








CALL 


CALCULATELINE 


jGET MEMORY ADDRESS FOR LINE 


E4F2 ED5BDBFB 








LCED 


CURPOS 


;GET POSITION ON LINE 


E4F6 1600 








MVI 


D,0 


|DE = X POSITION 


E4F8 19 








DAD 


D 


jHL = CURSOR POSITION 


E4F9 7E 








MOV 


A,H 


;GET CHARACTER 


E4FA EE80 








XRI 


8011 


j REVERSE VIDEO 


E4FC 77 








MOV 


M,A 


j PUT CHAR BACK 


E4FD C9 








RET 






E4FE 


> 












E4FE 


; CLEAR 


TO 


END 


OF SCREEN 




E4FE 


1 












E4FE CD1AE5 


CLE NO 






CALL 


WISPC 




E501 18CB 








JR 


RET 




E503 


1 CLEAR 


TO 


END 


OF LINE 






E503 3ADBFB 


CLLINE 






LDA 


CURPOS 




E506 3620 








MVI 


M,' ' 




E508 23 








INX 


11 




E509 3C 








Il« 


A 




E50A FE50 








CPI 


HORIZ 




E50C 20F8 








JRNZ 


CLLINEO 




E50E 18BE 








JR 


RET 




E510 


I CLEAR 


THE SCREEN 






E510 2100F0 


CLEAR 






LXI 


II, SCREEN 




E513 22DFFB 








SIILD 


TOSCN 


j SET TOP OF SCREEN 


E516 AF 








XRA 


A 




E517 32EAFB 








STA 


XYFLAG 


j ZERO XY LEAD-IN FIAG 


E51A 3620 


WRBPC 






MVI 


M.' ' 




E51C 23 








INX 


II 




E51D 7C 








MTV 


A, II 




E51E FEF8 








CPI 


SCREEN»2048/256 




E520 20F8 








JRNZ 


WlSC 




E522 C9 








RET 






E523 


t 












E523 


} PROCESS LEAD 


IN CODE 






E52 3 3E02 


LEDIN 






MVI 


A, 2 




E525 32EAFB 








STA 


XYFtAG 




E528 18A4 








JR 


RET 




E52A 


1 SET X 


AND v cunsm PO 


SITIUNS 




E52A 79 


XI "OS 






MCW 


A.C 


KIET X POSITION 


E52B FE7F 








CPI 


7FI1 


{CHECK FOR 07F1I 


E52D 2005 








JRNZ 


xposio 


;SK1P IF NOT 


E52F 32F31FB 








STA 


TOPFIAG 


/SET TOPFIAG 
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iw;e is 



E532 
E534 
E536 
E538 
E53A 
E53C 
E53C 
E53F 
E540 
E542 
E543 
E545 
E547 
E549 
E54B 
E54B 
ES4C 
E54F 
E552 
E554 
E5S4 
E554 
E554 
E555 
ESS8 
E559 
E55B 
E!i5E 
E561 
E564 
E567 
E567 
E567 
E567 
E567 
ES6A 
E56D 
E56E 
E56F 
E571 
E573 
E574 
E574 
E574 
E574 
E577 
E578 
E579 
E57A 
E57B 
E57C 
E57F 
E580 
E582 
E502 
E505 
E589 



189A 
FE5B 
3893 
3E4F 
18 8F 

3AEHFB 

B7 

2012 

79 

FE18 

38AB 

3E17 ' 

189C 

AF 

32DUFB 
CDECE4 
18AF 



AF 

32EBFU 

79 

FE17 

D2CEE4 

CD67E5 

22DFFB 

C3CEE4 



2180F7 

1 1B0FF 

3C 

19 

FE18 

20FA 

C9 



CUU2E1 

E3 

7E 

23 

E3 

A7 

CDIOE4 

Fa 

18F5 

CU74ES 

45780563 

JEA0 



XPOS10: 



J 
YPOS 



clstrt 



J 
> 
J 

TOPSCREEN: 



JR 


RET 


cpr 


HORIZ 


jrc 


TABIIET 


HVI 


A,HORIZ-l 


jr 


TABRET 


LDA 


TOPFLAG 


aiA 


A 


JRNZ 


TOPSCREEN 


HOV 


A,C 


CPI 


VERT 


JRC 


STORLN 


HVI 


A.VERT-1 


jr 


STORLN 


XRA 


A 


STA 


CURPOS 


CALL 


LIFTOJRS 


JR 


CLLINE 



» RETURN 
jSET TO MAX 



jGET TCP SCREEN SET FLAG 

jCHECK IF TRUE 

j SET TCP OP SCREEN 



jSET TO MAX 



SET TOP OF SCREEN TO LINE SPECIFIED BY A 



XRA 


A 


STA 


TOPFLAG 


NOV 


A,C 


CPI 


VERT-1 


.JNC 


RET 


CALL 


CALCULATELINE 


SHLD 


TOSOJ 


JMP 


RET 



» 
; 
i 
i 

CALCULATELINE: 



CALCLOOPi 



j RESET FLAG 

jGET LINE NUMBER 

I RANGE CHECK 

;RETURN IF LINE >- VERT 

jSAVE NEW TOP OF SCREEN 



LINE ADIIIESS CALCULATION (LINE IN A) RETURNS ADCRESS IN IIL 
OPTIMIZER AT BOTTOM 



IXI 

IXI 

INR 

CAD 

CPI 

JRNZ 

RET 



H, HORIZ *VERT+SCREEN 

0,-HORIZ 

A 

D 

VERT. 

CALCLOOP 



jASSUME LAST LINE 
De =» -(QIAR/LINE) 
INCR LINE NUMBER 
SUBTRACT 1 LINE 
CHECK IF DONE 
LOOP IF NOT 
RETURN WITH ADCRESS 



J 
J 

I 

RPTSTNJ 

PTSTNU 



J 
PRUMIT 



PRINr A STRING 

CALL 
XTHL 
MOV 
INX 

xniL 

ANA 
CAI.L 
IM 
JR 

CAI.L 

urn 



CRI.F 

A,M 
II 

A 
VIDEO 

PTSTNO 

RPTSTNG 
'Exoo ' 



jCRLF FIRST 

jGET SIRING POINTER 

jGET aiAR 

I INCR HUNTER 

ipur pointer back 

I ZERO CARRY 

i PRINr IT 

j RETURN IF MUTATIVE 

/REPEAT IF NOT 



E58B C9 




RET 




E58C 


1 






E58C 7E 


WDMP2 


MOV 


A,M 


E58D 47 




MOV 


U,A 


E58E 3E05 




MVI 


A, 'E'-64 


E590 CD10E4 




CAI.L 


VID20 


E593 CD01E3 




CALL 


BMP 


E596 C8 




R2 




ES97 BD 




DCR 


C 


E598 F8 




IM 




E599 18FI 




JR 


WIMP2 


E59Q 


1 ROME CURSOR, 


PRINr "ADUl" 


E59Q CD74E5 


IICMEC 


CAI.L 


RPTSTNG 


ES9E 14 




m 


•T*-64 


E59F 41444452 




DTH 


•AODR ' 


E5A3 AO 








E5A4 0600 




MVI 


B,0 


E5A6 3E18 




MVI 


A, 24 


E5A8 32DEFB 




STA 


wiurn 


E5AB C9 




RET 




E5AC 


, MAKE A RULER 


FOR HEX 


DUMP 


E5AC 78 


HEXRULER 


MOV 


A,B 


E5AD FElfl 




CPI 


16 


E5AF 2B06 




JR2 


HEXRCT 


E501 CU2BE7 




CAI.L 


PT2S 


E5B4 04 




INR 





E505 18F5 




JR 


IIEXHUIf.R 


E5U7 


; EXTEND FOR ASCII 




E5B7 CDADEl 


HEXRCT 


CALL 


SPCE 


E5BA CDADEl 




CAI.L 


SPCE 


ESBD 0600 




MVI 


B,0 


E5BF 78 


ItEXRLP 


MOV 


A,B 


E5C0 re 10 




CPI 


16 


E5C2 C8 




RZ 




E5C3 E60F 




AN I 


0FI1 


E5C5 CDF5E2 




CAI.L 


BINL 


E5C8 04 




INR 


B 


E5C9 18F4 




JR 


IIEXRLP 


E5CB 


j REX DUMP ROUTINE 




E5CB CD77E5 


I1EXRUI. 


CALL 


PrSTNG 


E5CE 44S54D50 




urn 


'DUMP ' 


E5U2 Afl 








E5D3 CDE1E1 




CALL 


TAIIEX 


E5D6 CD9UE5 




CALL 


hcmlx: 


E5D9 CDACE5 




CALL 


IIKXIUIIKU 


E5DC CD0EE4 




CALL 


TVIHEO 


E5DF CD03E6 




CALL 


SKTJiCRLL 


E5E2 CDOJE2 


IILP1 


CALL 


ITAD 


E5E5 E5 




PUSH 


II 


E5E6 D5 




PUSH 


D 


E5E7 0E10 




MVI 


C, 16 


E5E9 7E 


HI.P2 


MOV 


A,M 


E5EA CD2UE7 




CAI.L 


IT2S 


E5ED 23 




INX 


II 


E5EE 01) 




COR 


c 


E5EF C2K9E5 




JNZ 


HIJ'2 


E5F2 Ul 




POP 


1) 
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E5F3 El 




POP 


II 




E5F4 0E0F 




MVI 


C,15 




E5F6 CDADE1 




CALL 


SPCE 




E5F9 CDADE1 




CALL 


spce 




E5FC CDBCE5 




CALL 


WDMP2 




E5FF FADFE5 




JM 


HLP1-3 




E602 C9 




RET 






E603 


; CHECK TO SET SCROLL 


POINT 




E603 3ADEFB 


SET9CRLL 


LDA 


WIDTH 




E606 30 




OCR 


A 




E607 32DEFQ 




STA 


WIDTH 




E60A 2007 




JRNZ 


CTBCRL 




E60C 0150f0 • 




LXI 


B.SCREEN450H 


{2ND LINE 


E60F ED43DFFB 




SDOD 


TOSCN 


jSCROLL POINT 


E613 C9 


CT9CI1L 


RET 






E614 


» 








E6H 


j PROGRAM 


MEMORY 






E614 CD77E5 


PROGRAM 


CALL 


PTSTNG 




E617 50524F47 




DTH 


'PROGRAM ' 




MIB 52414DA0 










E61F CD92EI 




CALL 


AHEX 


jADLR IN HL 


E622 ED53E1FB 




SDED 


TCURPOS 




E626 CD90E5 




CALL 


HGMEC 


jPRINT "ADOH" 


E629 CDACE5 




CALL 


IIEXRULER 




E62C CD0EE4 




CALL 


TVIDEO 




E62F AF 




XRA 


A 




E630 32DEFB 




STA 


WIDTH 




E633 CD9DE6 




CALL 


PRT1LINE 


;PRINT LINE a 


E636 CD02E2 


POLLOOP 


CALL 


ESCAPE 




E639 CDC0E1 




CALL 


HEX 




E63C 2AE1FB 




LHLD 


tcurpos 




E63F 301A 




JRNC 


MOCHEM 




E641 


j CONTROL C0U2 TABLE 






E641 FE20 




CPI 


• i 




E643 2846 




JRZ 


CSRT 




E645 FE08 




CPI 


8 




E647 2845 




JRZ 


CSLT 




E649 FE12 




CPI 


, R , -64 




E64B 2839 




JRZ 


CSDN 




E64D FE15 




CPI 


, U , -64 




Efi4F 282F 




JRZ 


CSUP 




E651 FE17 




CPI 


'W'-64 




E653 2839 




JRZ 


CSLT 




E655 FE1A 




CPI 


•Z'-64 




E657 2832 




JRZ 


csrr 




E659 18DB 




JR 


POLLOOP 




E6SB 


t MODIFY 


A MMORY LOCATION 




E65B 2AE1FB 


moomem 


LHLO 


TCURPOS 




E65E 4F 




MOV 


C,A 




E65F 3ADEFB 




LDA 


WIDTH 




E662 A7 




ANA 


A 




E663 7E 




MOV 


A,M 




E664 2800 




JRZ 


LSNIBL 




E666 E6F0 




ANI 


0F0II 




E668 81 




OKA 


C 




E669 77 


RtMEM 


MJV 


M,A 




E66A 3ADEFB 




LDA 


wiuni 
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E66D EE01 






XHI 


1 


E66F 201F 






JRNZ 


RTRTNfl 


E671 1818 






JR 


CSRT 


E673 17 


LSNIBL 




RAL 




E674 17 






RAL 




E675 17 






RAL 




E676 17 






RAL 




E677 E6F0 






ANI 


0F0II 


E679 Bl 






CRA 


C 


E67A 0P 






rrc 




E67B 0F 






RJC 




E67C 0F 






RRC 




E67D 0F 






RRC 




E67E 18E9 






JR 


REMEM 


E680 


j MOVE 


UP ONE LINE 




E6O0 11F0FF 


CSUP 




UI| 


D,-16 


E683 19 






DAD 


D 


E684 1809 






JR 


RTRTN 


E686 


j MOVE 


DOWN 


ONE LINE 




E686 111000 


CSDN 




LXI 


D,16 


E689 18F8 






JR 


CSUP*3 


E6BB 


1 MOVE 


RIGHT ONE SPACE 




E68B 23 


CSRT 




I NX 


H 


E68C 1801 






JR 


RTRTN 


E68E 


1 MOVE 


LEFT 


ONE SPACE 




E68E 2B 


CSLT 




DCX 


H 


E68F 


1 








E68F AF 


RTRTN 




XRA 


A 


E690 32DEPD 






BTA 


wi urn 


E693 22E1FB 






SHLD 


TCURPOS 


E6% 3E15 


UPARCW 




MVI 


A,'U'-64 


E698 CD10E4 






CALL 


VIOEO 


E69B 1896 






JR 


POLLOOP-3 


E69D 


; PRIWI 


' A LINE CONTAINING ((H)) 


E69D 2AE1FB 


PRT1LINE 


LHLD 


TCURPOS 


E6A0 E5 






PUSH 


H 


E6A1 Dl 






POP 


D 


E6A2 7D 






MOV 


A,L 


E6A3 F60F 






mi 


0F1I 


E6A5 5F 






MOV 


E,A 


E6A6 E6F0 






ANI 


0F0II 


E6A8 6F 






MOV 


L,A 


E6A9 CDE2E5 






CALL 


HLP1 


E6AC 


j NOW PITT CURSOR WHERE 


IT GOES 


E6AC CDECE4 






CALL 


LIFTCURS 


E6AF 2AE1FB 






LHLD 


TCURPOS 


E6B2 7D 






MOV 


A,L 


E6B3 E60F 






ANI 


0FH 


E685 6F 






MOV 


L,A 


E6B6 3E05 






MVI 


A, 5 


E6B8 20 


PLOP I 




DCR 


L 


E6B9 FAC0E6 






JM 


pocowr 


E6UC C603 






ADI 


3 


E6BE 18F8 






JR 


PI.OP1 


EfiCO 6F 


I'OCONT 




MUV 


L,A 


E6C1 3ADEFB 






LDA 


wioni 


E6C4 85 






ADD 


L 
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E6C5 


j A - 5*3' 


*UU 




E6C5 32DBFB 




STA 


CURIOS 


E6C8 C3ECE4 




JMP 


LIFTCUnS 


E6CB 


1 






E6CB 


J 






E6CB 


} DISMAY 


ROISTERS 




E6CB CD77E5 


DREGS 


CALL 


PTSTNU 


EfiCE 52451749 




Dfll 


•REGISTERS' 


E6D2 53544552 








E6D6 D3 








E6D7 


; DUMP REGISTERS AFTER 


EKrHY FROM R 


E6D7 E3 . 


DUMPREGS 


XTJIL 




E608 F5 




PUSH 


PSW 


E609 CD31E7 




CALL 


DISPREGS 


E6DC 2B 




DCX 


H 


E6DD CDD3E2 




CALL 


PTAO 


E6E0 El 




POP 


II 


E6E1 C5 




PUSH 


B 


E6E2 CD86E7 




CALL 


PRTFLGS 


E6E5 Ci 




POP 


B 


E6E6 CDD6E2 




CALL 


PTAD+3 


E6E9 El 




POP 


II 


E6EA 22EJFB 




SI1LD 


IILTEMP 


E6ED CDA7E7 




CALL. 


PTIWEE 


E6F0 DDES 




. PUSH 


IX 


E6F2 El 




POP 


II 


E6F3 CD06E2 




CALL 


PTAD+3 


E6F6 FDE5 




PUSH 


IY 


E6F8 El 




POP 


II 


E6F9 CDD6E2 




CALL 


PTAD+3 


E6FC 210000 




LXI 


11,0 


E6FF 39 




DAD 


SP 


E709 22E5FB 




SllLD 


SPTEMP 


E7U3 CU06E2 




CALL 


PTAD+3 


E706 08 




EXAF 




E707 F5 




PUSH 


PSW 


E708 El 




POP 


H 


E709 CDD6E2 




CALL 


PTADI3 


E70C D9 




EXX 




E70D COA7E7 




CALL 


PTIREE 


E710 D9 




EXX 




E711 0A 




LDAX 


B 


E712 C02UE7 




CALL 


PI-2S 


E715 IA 




IJftX 


D 


E716 CD2HE7 




CALL 


IT2S 


E719 2AE3FB 




UILD 


HLTEMP 


E71C 7E 




MOV 


A,M 


E71D CD20E7 




CALL 


pras 


E729 2AE5FB 




UILD 


SPTEMP 


E723 F9 




SPHL 




E724 El 




TOP 


II 


E725 COD6E2 




CALL 


PrADH 


E728 C3OBE0 




JMP 


CLRBRK 


E72B 


1 






E72B CDEAE2 


PT2S 


CALL 


pr2 


E72E C3ADEI 




JMP 


SPCE 


E731 


; DISPLAY 


REGISTER IIEAI 


*IR ON SCREEN 



jGET BREAK ADD 

jPRINT AF 
jPRIKT B D II 
jPRINT IX 
jPRINT IY 

jPRIWT SP 



j CLEAR BREAKPOINT 

i print 2 chars 

I PR I NT SPACE 
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E731 CD74E5 


DISPREGS 


CALL 


FtPTSTUG 




E734 14 




du 


'T'-64 




E735 41444452 




DT 


'AIJIR FLAGS AF 


B 


E739 20464C41 










E73D 47532020 










E741 41462020 










E745 20424320 










E749 20204445 










E74D 20202048 




or 


' HL IX IY 




£751 4C202020 










E755 49582020 










E759 20495920 










E75D 20205350 










E761 20 










E762 20204146 




DT 


• AF' 




£766 27 




DB 


27 H 


i' 


E767 20204243 




DT 


• BC' 




E76B 27 




D3 


2711 




E76C 20204445 




DT 


' DE' 




E770 27 




DB 


27H 




E771 2020484C 




DT 


• HL' 




E775 27 




DB 


27H 




E776 20404220 




DT 


• go go gh esp • 




E77A 40442040 










E77E 48204053 










£782 5020 










E784 94 




DB 


•T'«64 




E785 C9 




RET 






E786 


J 








E786 


j PRINT FLAGS 








E786 015A40 


PRTFLGS 


LXI 


B.405AII 


JZ 


E789 CDBGE7 




CALL 


MASKFLG 




E78C 014301 




LXI 


B.143H 


JC 


E7BF CDD6E7 




CALL 


MASKFLG 




E792 014D80 




IXI 


B.804DH 


>M 


E795 CDB6E7 




CALL 


MASKFLG 




E798 014504 




LXI 


B, 44511 


jE 


E790 CDU6E7 




CALL 


MASKFLG 




E79E 014810 




LXI 


B.1U48H 


til 


E7AI CDB6E7 




CALL 


MASKFLG 




E7A4 C3ADE1 




JMP 


SPCE 




E7A7 


1 








E7A7 


j print BC DE 


HL IN ORDER 




E7A7 E5 


Pl'IMEE 


PUSH 


II 




E7A8 C5 




PUSH 


B 




E7A9 El 




PUP 


11 




E7AA CD06E2 




CALL 


PTADt 3 




E7AD D5 




PUSH 


D 




E7AE El 




POP 


II 




E7AF CDD6E2 




CALL 


PTAIH3 




E7B2 El 




POP 


II 




E7B3 C30(>E2' 




JMP 


PTADO 




E7U6 


; 








E7B6 7D 


MASKFIjG 


MOV 


A,l. 




E7B7 A0 




AHA 


B 




E7U8 3E20 




MVI 


A, 2 HIl 




E7UA CA10E4 




M 


vn*:o 





bc re* 
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E7BD 79 




MOV 


A,C 




E7BE C310E4 




JMP 


VIDEO 




E7C1 


; 








E7C1 


; 


SET BREAKPOINT 






E7C1 


i 








E7C1 C077E5 


SETBRK 


CALL 


PT5TNG 




E7C4 42524541 




DTH 


•BREAK AT ' 




E7C8 48204154 










E7CC M 










E7CD CD92EI 




CALL 


AI1EX 




E7D0 1A 




LWX 


D 




E7D1 32E9FU 




STA 


BRKCOCe 




E7D4 ED53E7FB 




SC£D 


BKPTLOC 




E7D8 3EEF 




HVI 


A,0EFII 


/RESTART 5 


E7DA 12 




STAX 


D 




E7DB C9 




RET 






E7DC 


I 








E70C 


) EXTERNAL COMMUNICATIONS 




E7DC CD77E5 


EXTCOM 


CALL 


ptstng 




E7DF 45585420 




DTH 


•EXT COM ' 




E7E3 434F4DA0 










E7E7 D0fl5 


RECEIVE 


IN 


5 




E7E9 E602 




AMI 


2 




E7E8 2805 




JRZ 


NEXQ1R 




E7ED DB04 




IN 


4 




E7EF CD10E4 




CAIX 


VIDEO 




E7F2 CO02E2 


NEXCHH 


CALL 


ESCAPE 




E7F5 28F0 




JRZ 


RECEIVE 




E7F7 D304 




OUT 


4 




E7F9 18EC 




JR 


RECEIVE 




E7FB 




PRT 


•PROGRAM LEM3TH 


» ',$-BBGIN+l 


E7FB 




ORG 


BASE+7FFH 




E7FF 50 


VERSICN: 


ce 


5WI 




E800 


J 








E8O0 


I 


CURSOR STCRAGE 


LOCATIONS 




EB00 


; 








E800 




ORG 


SPTR«0Uii 




FBOB 


Cunpos 


DG 


1 


»POS ON LINE 


FBOC 


LINENO 


D6 


1 


/LINE NUMBER 


race 


VFL 


DG 


1 


/REVERSE VI a FLAG 


FBOE 


WIDTH 


DG 


1 


jPRIKT WIDTH 


FBOF 


1»'vXN 


DG 


2 


|TUP OF SCREEN 


FBE1 


•niwiros 


DG 


2 


jTBMP POSITION 


FBE3 


1 








FBE3 


1 


TtMPORARY BTORAGE LOCATIONS FOR 


REGISTERS, ETC. 


FIS3 


I 








FBE3 


HLTEMP 


EG 


2 




FBE5 


SPTtMP 


DG 


p 




FBE7 


BKPrLo: 


DG 


2 


/BREAKIT LOCATION 


FBE9 


BRKCODG 


re 


1 


jCOCe AT BREAKFT 


FBEA 


XYFIAG 


OS 


1 


iCursor xy flag 


FBtB 


TOl'FLAG 


DS 


1 


; NON-ZERO IP TOPSCREEN SET 



